Sub ʴ¹()

    Dim  As Range
    Dim  As Long,  As Long
    Dim c As Long, r As Long
    
    Set  = ActiveSheet.UsedRange

    For c = .Columns.Count To 1 Step -1
    
        If WorksheetFunction.CountA(.Columns(c).EntireColumn) = 0 Then
    
            .Columns(c).EntireColumn.Delete
             =  + 1
        
        Else
    
            Exit For
    
        End If
        
    Next c

    For r = .Rows.Count To 1 Step -1
    
        If WorksheetFunction.CountA(.Rows(r).EntireRow) = 0 Then
    
            .Rows(r).EntireRow.Delete
             =  + 1
        
        Else
    
            Exit For
    
        End If
        
    Next r

    If  +  > 0 Then
    
        MsgBox "  ߽ϴ." & vbCr & vbCr & _
               "*    : " &  & " " & vbCr & _
               "*    : " &  & " "
    
    Else
    
        MsgBox " (Ǵ )  ʽϴ."
    
    End If
    
End Sub